Internet the City/Internet The City.iso/mac/Internet the City™ Files/itcres/data.Dxr/Internal_9_tools.ls

Text File | 1997-06-03 | 4.3 KB | 169 lines

on clearcastscripts
  set total to the number of castMembers
  repeat with x = 1 to total
    if the type of member x = #bitmap then
      set the scriptText of member x to EMPTY
    end if
  end repeat
end

on listmembers
  set total to the number of castMembers
  set Counter to 0
  set castlist to EMPTY
  repeat with x = 1 to total
    if the type of member x = #bitmap then
      if the fileName of member x = EMPTY then
        set Counter to Counter + 1
        put the name of member x into line Counter of castlist
      end if
    end if
  end repeat
  put castlist
end

on getmovienames
  repeat with x = 303 to 314
    put the name of member x
  end repeat
end

on checkextcasts
  set nextname to "x"
  set linno to 0
  repeat while nextname <> EMPTY
    set lineno to lineno + 1
    set nextname to getNthFileNameInFolder(the pathName & "frefd", lineno)
    if the number of member nextname < 1 then
      put nextname
    end if
  end repeat
end

on importfiles f, t
  repeat with x = f to t
    if the fileName of member x = EMPTY then
      next repeat
    end if
    importFileInto(member x, the pathName & "frefd:" & the name of member x)
  end repeat
end

on listImportedFiles
  set nextname to "x"
  set linno to 0
  repeat while nextname <> EMPTY
    set lineno to lineno + 1
    set nextname to getNthFileNameInFolder(the pathName & "frefd", lineno)
    if the number of member nextname < 1 then
      put "no cast named" && nextname
      next repeat
    end if
    if the fileName of cast nextname = EMPTY then
      put nextname
    end if
  end repeat
end

on checkmembernames f, t
  repeat with x = f to t
    if not (the fileName of member x contains the name of member x) then
      put the name of member x && x
    end if
  end repeat
end

on checkpaused which
  set total to the number of castMembers of castLib which
  repeat with x = 1 to total
    if the type of member x of castLib which = #digitalVideo then
      if the pausedAtStart of member x of castLib which = 0 then
        if "g_url.mov g_edi.mov g_pro.mov" contains the name of member x then
          set the pausedAtStart of member x of castLib which to 0
          next repeat
        end if
        set the pausedAtStart of member x of castLib which to 1
      end if
    end if
  end repeat
end

on checkloaded whichlib
  global gloadedlist
  set gloadedlist to []
  set total to the number of castMembers of castLib whichlib
  repeat with x = 1 to total
    if (the type of member x <> #empty) and (the loaded of member x of castLib whichlib = 1) then
      put x && the name of member x of castLib whichlib && the size of member x of castLib whichlib
      add(gloadedlist, x)
    end if
  end repeat
end

on clearfiles
  set total to the number of castMembers of castLib 2
  repeat with x = 1 to total
    set the fileName of member x of castLib 2 to the name of member x of castLib 2
  end repeat
end

on cleartabs whichmember
  set total to the number of chars in field whichmember of castLib 2
  repeat with c = 1 to total
    if charToNum(char c of field whichmember of castLib 2) = 9 then
      put "    " into char c of field whichmember of castLib 2
      set total to total + 4
    end if
  end repeat
end

on getnewloaded whichlib
  global gloadedlist
  set total to the number of castMembers of castLib whichlib
  repeat with x = 1 to total
    if (the type of member x <> #empty) and (the loaded of member x of castLib whichlib = 1) then
      if getOne(gloadedlist, x) = 0 then
        put x
      end if
    end if
  end repeat
end

on setloadedlist whichlib
  global gloadedlist
  set gloadedlist to []
  set total to the number of castMembers of castLib whichlib
  repeat with x = 1 to total
    if (the type of member x <> #empty) and (the loaded of member x of castLib whichlib = 1) then
      add(gloadedlist, x)
    end if
  end repeat
end

on checkframe
  repeat with x = 1 to 48
    set n to the castLibNum of sprite x
    if n > 3 then
      put the frame & ": sprite " & x & " is in castlib " & n
    end if
  end repeat
end

on checkallframes
  set t to the lastFrame
  repeat with x = 1 to t
    go(x)
    checkframe()
  end repeat
end

on replaceallcasts
  set total to the number of castMembers of castLib 4
  repeat with x = 1 to total
    if the type of member x of castLib 4 = #bitmap then
      copyToClipBoard(member x of castLib 4)
      pasteClipBoardInto(member x of castLib 1)
    end if
  end repeat
end